#!/usr/bin/perl

use strict;
use warnings;

open(MACFILE, "mac_data.txt") or die "Can't open input.txt: $!";
my @lines = <MACFILE>;

foreach my $str (@lines) {
	my @s = split(/\s/, $str);
	if (!defined($s[2])) { $s[2] = ""; }
	print "[\"", $s[0] , "\", \"", $s[1] , "\", \"", $s[2], "\"],\n";
}
